home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 September
/
1985-09.d64
/
rubber band
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
477b
|
12 lines
5 print"[147]
10 [129]l[178]54272[164]54295:[151]l,0:[130]:[151]54296,15
20 [151]54277,6:[143] attack/decay (sustain/release is 0)
30 [129]z[178]1[164]40:a[178][181](60[172][187](1))[170]1:q[178][181](100[172][187](1))[170]1:[143] z = no. of sounds
40 [151]54273,40:[143] unchanging frequency for voice one
50 f2[178][181](55[172][187](1))[170]1:[143] variable frequency for voice 2 to be poked next line
60 [151]54287,f2
70 [151]54276,23:[143] turns on voice 1 with waveform 23
80 [129]t[178]1[164]q:[130]:[143] variable time between sounds
90 [151]54276,128:[130]z:[143] turn off voice 23 with a 128 yields unique sound
100 [155]10[171]90